;Seg 1 = INIT ID# 6 proc 1 of 6 (local) 0000: L0000 BRA.S L000E 0002: L0002 SUB.L D7,-(A6) 0004: SLT (A7) 0006: MOVE.L -(A3),D2 0008: MOVE.L -(A4),-(A1) 000A: SUBQ.W #5,(A6) 000C: MOVE.W (A5)+,$2848(A0) 0010: _HNoPurge 0012: MOVEA.L A4,A0 0014: _HLock 0016: JSR locProc2 001A: BNE.S L0030 001C: MOVE.L L0002,D0 0020: ADDI.L #$00093A80,D0 0026: CMP.L $020C,D0 002A: BGT.S L0030 002C: JSR locProc4 0030: L0030 RTS 0032: .WORD $5642,$4331 ;[VBC1....] ;Seg 1 = INIT ID# 6 proc 2 of 6 (local) 0000: L0036 MOVEA.L $0162,A0 0004: MOVEA.L $0166,A3 0008: L003E LEA $0010(A0),A1 000C: CMPI.L #$24232324,$0008(A1) ;'$##$' 0014: BNE.S locProc3 0016: CMPI.L #$5B56315D,$000C(A1) ;'[V1]' 001E: BNE.S locProc3 0020: MOVEQ $FF,D0 0022: RTS ;Seg 1 = INIT ID# 6 proc 3 of 6 (local) 0000: L005A MOVEA.L (A0),A0 0002: MOVE.L A0,D0 0004: BEQ.S L0066 0006: CMPA.L A0,A3 0008: BEQ.S L0066 000A: BRA.S L003E 000C: L0066 MOVEQ $00,D0 000E: RTS ;Seg 1 = INIT ID# 6 proc 4 of 6 (local) 0000: L006A LEA L0304,A1 0004: LEA L00E8,A2 0008: SUBA.L A2,A1 000A: MOVE.L A1,D0 000C: ADDI.L #$00000020,D0 0012: _NewPtr 0014: MOVE.W D0,D0 0016: BNE.S L00E2 0018: MOVE.L A0,-(A7) 001A: LEA L0304,A1 001E: LEA L00E8,A2 0022: SUBA.L A2,A1 0024: MOVE.L A1,D0 0026: MOVEA.L A0,A1 0028: ADDA.W #$0020,A1 002C: LEA L00E8,A0 0030: _BlockMove 0032: MOVEA.L (A7)+,A0 0034: MOVE.W #$0001,$0004(A0) 003A: LEA $0020(A0),A1 003E: MOVE.L A1,$0006(A0) 0042: MOVE.W #$0E10,$000A(A0) 0048: MOVE.W #$000A,$000C(A0) 004E: MOVE.L A0,-(A7) 0050: _VInstall 0052: MOVEA.L (A7)+,A0 0054: LEA $0010(A0),A1 0058: CLR.L (A1) 005A: MOVE.L #$24232324,$0008(A1) ;'$##$' 0062: MOVE.L #$5B56315D,$000C(A1) ;'[V1]' 006A: MOVE.W #$A003,D0 006E: MOVE.L A1,-(A7) 0070: _GetTrapAddress 0072: MOVEA.L (A7)+,A1 0074: MOVE.L A0,$0004(A1) 0078: L00E2 RTS 007A: .WORD $5630,$3031,$41FA,$FFFE ;[V001A...] 0082: .WORD $90FC,$20,$317C,$E10 ;[... 1|..] 008A: .WORD $A,$D0FC,$10,$2F08 ;[....../.] 0092: .WORD $4850,$4EBA,$2C,$584F ;[HPN..,XO] 009A: .WORD $205F,$2010,$C80,0 ;[ _ .....] 00A2: .WORD $E,$6D0A,$303C,$A003 ;[..m.0<..] 00AA: .WORD $41FA,$190,$A047,$4E75 ;[A....GNu] 00B2: .WORD $206F,4,$A029,$4E75 ;[ o...)Nu] 00BA: .WORD $206F,4,$A02A,$4E75 ;[ o...*Nu] 00C2: .WORD $48E7,$2020,$242F,$C ;[H. $/..] 00CA: .WORD $2478,$A50,$602C,$2F0A ;[$x.P`,/.] 00D2: .WORD $4EBA,$FFDE,$2052,$3038 ;[N... R08] 00DA: .WORD $900,$B068,$14,$588F ;[...h..X.] 00E2: .WORD $660A,$2F02,$2F08,$4EBA ;[f././.N.] 00EA: .WORD $1E,$508F,$2F0A,$4EBA ;[..P./.N.] 00F2: .WORD $FFC8,$2052,$2468,$10 ;[.. R$h..] 00FA: .WORD $588F,$200A,$6600,$FFD0 ;[X. .f...] 0102: .WORD $4CDF,$404,$4E75,$48E7 ;[L...NuH.] 010A: .WORD $3E30,$226F,$20,$246F ;[>0"o. $o] 0112: .WORD $24,$4241,$7400,$3029 ;[.$BAt.0)] 011A: .WORD $18,$48C0,$D089,$2640 ;[..H...&@] 0122: .WORD $3813,$5244,$4243,$6040 ;[8.RDBC`@] 012A: .WORD $3003,$48C0,$E780,$CB3 ;[0.H.....] 0132: .WORD $5655,$4C54,$802,$6602 ;[VULT..f.] 013A: .WORD $7401,$3003,$48C0,$E780 ;[t.0.H...] 0142: .WORD $CB3,$434F,$4445,$802 ;[..CODE..] 014A: .WORD $661C,$7201,$3003,$48C0 ;[f.r.0.H.] 0152: .WORD $E780,$3A33,$806,$5245 ;[..:3..RE] 015A: .WORD $3003,$48C0,$E780,$3C33 ;[0.H...<3] 0162: .WORD $808,$646,$1C,$5243 ;[...F..RC] 016A: .WORD $B644,$6D00,$FFBC,$702C ;[.Dm...p,] 0172: .WORD $B092,$6C1E,$4A82,$671A ;[..l.J.g.] 017A: .WORD $4A41,$6716,$3005,$48C0 ;[JAg.0.H.] 0182: .WORD $2F00,$3006,$48C0,$2F00 ;[/.0.H./.] 018A: .WORD $2F09,$4EBA,$12,$4FEF ;[/.N...O.] 0192: .WORD $C,$4A82,$6702,$5292 ;[..J.g.R.] 019A: .WORD $4CDF,$C7C,$4E75 ;[L..|Nu..] ;Seg 1 = INIT ID# 6 proc 5 of 6 (local) 0000: L020A LINK A6,#$FFF4 0004: MOVEM.L D2-D5/A2-A3,-(A7) 0008: MOVEA.L $0008(A6),A0 000C: MOVE.W $000E(A6),D0 0010: MOVE.W $0012(A6),D1 0014: CLR.W D3 0016: MOVE.W D3,D4 0018: EXT.L D0 001A: ADDA.L D0,A0 001C: MOVE.L A0,D5 001E: MOVEQ $01,D2 0020: BRA.S L0266 0022: L022C MOVE.W D2,D0 0024: EXT.L D0 0026: MULS #$0C,D0 002A: MOVEA.L D0,A0 002C: ADDA.L D5,A0 002E: LEA $FFF4(A6),A1 0032: MOVE.L (A0)+,(A1)+ 0034: MOVE.L (A0)+,(A1)+ 0036: MOVE.L (A0)+,(A1)+ 0038: CMPI.W #$000D,$FFF4(A6) 003E: BNE.S L0258 0040: TST.L $FFFC(A6) 0044: BEQ.S L0264 0046: MOVEQ $01,D4 0048: MOVEA.L $FFFC(A6),A3 004C: BRA.S L0264 004E: L0258 TST.L $FFFC(A6) 0052: BEQ.S L0264 0054: MOVEQ $01,D3 0056: MOVEA.L $FFFC(A6),A2 005A: L0264 ADDQ.W #1,D2 005C: L0266 CMP.W D1,D2 005E: BLT L022C 0062: TST.W D4 0064: BEQ.S L028A 0066: BTST #$0000,$020F 006C: BLE.S L0280 006E: MOVE.L #$000003DE,D0 0074: BRA.S L0286 0076: L0280 MOVE.L #$00000472,D0 007C: L0286 MOVEA.L (A3),A0 007E: BRA.S L0292 0080: L028A TST.W D3 0082: BEQ.S L0294 0084: MOVEA.L (A2),A0 0086: MOVEQ $21,D0 0088: L0292 ADDA.L D0,A0 008A: L0294 MOVE.L A0,-(A7) 008C: JSR locProc6 0090: ADDQ.L #4,A7 0092: MOVEM.L $FFDC(A6),D2-D5/A2-A3 0098: UNLK A6 009A: RTS 009C: .WORD $41FA,$FE40,$90FC,$10 ;[A..@....] 00A4: .WORD $2068,4,$303C,$A003 ;[ h..0<..] 00AC: .WORD $A047,$7660,$429F,$51CB ;[.Gv`B.Q.] 00B4: .WORD $FFFC,$43FA,$FFE4,$45FA ;[..C...E.] 00BC: .WORD $FE22,$93CA,$2009,$5140 ;[.".. .Q@] 00C4: .WORD $421A,$51C8,$FFFC,$9DCE ;[B.Q.....] 00CC: .WORD $4ED0,$4E75 ;[N.Nu....] ;Seg 1 = INIT ID# 6 proc 6 of 6 (local) 0000: L02DA MOVEA.L $0004(A7),A4 0004: MOVEQ $60,D3 0006: L02E0 CLR.L (A7)+ 0008: DBRA D3,L02E0 000C: LEA L02DA,A1 0010: LEA L00E8,A2 0014: SUBA.L A2,A1 0016: MOVE.L A1,D0 0018: SUBI.L #$00000010,D0 001E: L02F8 CLR.B (A2)+ 0020: DBRA D0,L02F8 0024: SUBA.L A6,A6 0026: JMP (A4) 0028: RTS ;Seg 2 = INIT ID# 17 proc 1 of 4 (local) 0000: L0000 BRA.S L0006 0002: L0002 SUB.L D7,-(A6) 0004: SLT (A0)+ 0006: L0006 MOVEA.L A0,A4 0008: _HNoPurge 000A: MOVEA.L A4,A0 000C: _HLock 000E: JSR locProc2 0012: BNE.S L0028 0014: MOVE.L L0002,D0 0018: ADDI.L #$00054600,D0 001E: CMP.L $020C,D0 0022: BGT.S L0028 0024: JSR locProc4 0028: L0028 RTS 002A: .WORD $5642,$4332 ;[VBC2....] ;Seg 2 = INIT ID# 17 proc 2 of 4 (local) 0000: L002E MOVEA.L $0162,A0 0004: MOVEA.L $0166,A3 0008: L0036 LEA $0010(A0),A1 000C: CMPI.L #$24232324,$0008(A1) ;'$##$' 0014: BNE.S locProc3 0016: CMPI.L #$5B56325D,$000C(A1) ;'[V2]' 001E: BNE.S locProc3 0020: MOVEQ $FF,D0 0022: RTS ;Seg 2 = INIT ID# 17 proc 3 of 4 (local) 0000: L0052 MOVEA.L (A0),A0 0002: MOVE.L A0,D0 0004: BEQ.S L005E 0006: CMPA.L A0,A3 0008: BEQ.S L005E 000A: BRA.S L0036 000C: L005E MOVEQ $00,D0 000E: RTS ;Seg 2 = INIT ID# 17 proc 4 of 4 (local) 0000: L0062 LEA L01E0,A1 0004: LEA L00D2,A2 0008: SUBA.L A2,A1 000A: MOVE.L A1,D0 000C: ADDI.L #$00000020,D0 0012: _NewPtr 0014: MOVE.W D0,D0 0016: BNE.S L00CC 0018: MOVE.L A0,-(A7) 001A: LEA L01E0,A1 001E: LEA L00D2,A2 0022: SUBA.L A2,A1 0024: MOVE.L A1,D0 0026: MOVEA.L A0,A1 0028: ADDA.W #$0020,A1 002C: LEA L00D2,A0 0030: _BlockMove 0032: MOVEA.L (A7)+,A0 0034: MOVE.W #$0001,$0004(A0) 003A: LEA $0020(A0),A1 003E: MOVE.L A1,$0006(A0) 0042: MOVE.W #$0E10,$000A(A0) 0048: MOVE.W #$000A,$000C(A0) 004E: MOVE.L A0,-(A7) 0050: _VInstall 0052: MOVEA.L (A7)+,A0 0054: LEA $0010(A0),A1 0058: CLR.L (A1) 005A: MOVE.L #$24232324,$0008(A1) ;'$##$' 0062: MOVE.L #$5B56325D,$000C(A1) ;'[V2]' 006A: L00CC RTS 006C: .WORD $5630,$3032,$41FA,$FFFE ;[V002A...] 0074: .WORD $90FC,$20,$317C,$E10 ;[... 1|..] 007C: .WORD $A,$D0FC,$10,$4850 ;[......HP] 0084: .WORD $4EBA,$16,$584F,$4E75 ;[N...XONu] 008C: .WORD $206F,4,$A029,$4E75 ;[ o...)Nu] 0094: .WORD $206F,4,$A02A,$4E75 ;[ o...*Nu] 009C: .WORD $48E7,$2020,$242F,$C ;[H. $/..] 00A4: .WORD $2478,$A50,$602C,$2F0A ;[$x.P`,/.] 00AC: .WORD $4EBA,$FFDE,$2052,$3038 ;[N... R08] 00B4: .WORD $900,$B068,$14,$588F ;[...h..X.] 00BC: .WORD $660A,$2F02,$2F08,$4EBA ;[f././.N.] 00C4: .WORD $1E,$508F,$2F0A,$4EBA ;[..P./.N.] 00CC: .WORD $FFC8,$2052,$2468,$10 ;[.. R$h..] 00D4: .WORD $588F,$200A,$6600,$FFD0 ;[X. .f...] 00DC: .WORD $4CDF,$404,$4E75,$48E7 ;[L...NuH.] 00E4: .WORD $3020,$206F,$10,$246F ;[0 o..$o] 00EC: .WORD $14,$4240,$7400,$3028 ;[..B@t.0(] 00F4: .WORD $18,$48C0,$D088,$2240 ;[..H..."@] 00FC: .WORD $3611,$5243,$4241,$6026 ;[6.RCBA`&] 0104: .WORD $3001,$48C0,$E780,$CB1 ;[0.H.....] 010C: .WORD $5655,$4C54,$802,$6602 ;[VULT..f.] 0114: .WORD $7401,$3001,$48C0,$E780 ;[t.0.H...] 011C: .WORD $CB1,$4552,$4943,$802 ;[..ERIC..] 0124: .WORD $6602,$7401,$5241,$B243 ;[f.t.RA.C] 012C: .WORD $6D00,$FFD6,$7018,$B092 ;[m...p...] 0134: .WORD $6C08,$4A82,$6704,$4EBA ;[l.J.g.N.] 013C: .WORD $E,$4A82,$6702,$5292 ;[..J.g.R.] 0144: .WORD $4CDF,$40C,$4E75,$48E7 ;[L...NuH.] 014C: .WORD $8080,$A9FF,$41FA,$FF1E ;[....A...] 0154: .WORD $90FC,$20,$4268,$A ;[... Bh..] 015C: .WORD $204D,$D0FC,$20,$5848 ;[ M... XH] 0164: .WORD $D0FC,$20,$7010,$690 ;[... p...] 016C: .WORD 0,4,$D0FC,$40 ;[.......@] 0174: .WORD $51C8,$FFF4,$4CDF,$101 ;[Q...L...] 017C: .WORD $4E75 ;[Nu......]